/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCLink_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 7d b6 01 63 6c 61 73 73 |........|}..class|
|00000010| 20 55 42 72 6f 77 73 65 | 72 49 52 43 4c 69 6e 6b | UBrowse|rIRCLink|
|00000020| 20 65 78 70 61 6e 64 73 | 20 55 42 72 6f 77 73 65 | expands| UBrowse|
|00000030| 72 42 75 66 66 65 72 65 | 64 54 43 50 4c 69 6e 6b |rBuffere|dTCPLink|
|00000040| 3b 0d 0a 0d 0a 76 61 72 | 20 49 70 41 64 64 72 09 |;....var| IpAddr.|
|00000050| 09 09 53 65 72 76 65 72 | 49 70 41 64 64 72 3b 0d |..Server|IpAddr;.|
|00000060| 0a 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 09 09 09 |...var s|tring...|
|00000070| 53 65 72 76 65 72 41 64 | 64 72 65 73 73 3b 0d 0a |ServerAd|dress;..|
|00000080| 76 61 72 20 69 6e 74 09 | 09 09 09 53 65 72 76 65 |var int.|...Serve|
|00000090| 72 50 6f 72 74 3b 0d 0a | 0d 0a 76 61 72 20 73 74 |rPort;..|..var st|
|000000a0| 72 69 6e 67 09 09 09 4e | 69 63 6b 4e 61 6d 65 3b |ring...N|ickName;|
|000000b0| 0d 0a 76 61 72 20 73 74 | 72 69 6e 67 09 09 09 55 |..var st|ring...U|
|000000c0| 73 65 72 49 64 65 6e 74 | 3b 0d 0a 76 61 72 20 73 |serIdent|;..var s|
|000000d0| 74 72 69 6e 67 09 09 09 | 46 75 6c 6c 4e 61 6d 65 |tring...|FullName|
|000000e0| 3b 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 09 09 09 |;..var s|tring...|
|000000f0| 44 65 66 61 75 6c 74 43 | 68 61 6e 6e 65 6c 3b 0d |DefaultC|hannel;.|
|00000100| 0a 0d 0a 76 61 72 20 6c | 6f 63 61 6c 69 7a 65 64 |...var l|ocalized|
|00000110| 20 73 74 72 69 6e 67 20 | 49 6e 76 61 6c 69 64 41 | string |InvalidA|
|00000120| 64 64 72 65 73 73 54 65 | 78 74 3b 0d 0a 76 61 72 |ddressTe|xt;..var|
|00000130| 20 6c 6f 63 61 6c 69 7a | 65 64 20 73 74 72 69 6e | localiz|ed strin|
|00000140| 67 20 45 72 72 6f 72 42 | 69 6e 64 69 6e 67 54 65 |g ErrorB|indingTe|
|00000150| 78 74 3b 0d 0a 76 61 72 | 20 6c 6f 63 61 6c 69 7a |xt;..var| localiz|
|00000160| 65 64 20 73 74 72 69 6e | 67 20 52 65 73 6f 6c 76 |ed strin|g Resolv|
|00000170| 65 46 61 69 6c 65 64 54 | 65 78 74 3b 0d 0a 76 61 |eFailedT|ext;..va|
|00000180| 72 20 6c 6f 63 61 6c 69 | 7a 65 64 20 73 74 72 69 |r locali|zed stri|
|00000190| 6e 67 20 43 6f 6e 6e 65 | 63 74 65 64 54 65 78 74 |ng Conne|ctedText|
|000001a0| 3b 0d 0a 76 61 72 20 6c | 6f 63 61 6c 69 7a 65 64 |;..var l|ocalized|
|000001b0| 20 73 74 72 69 6e 67 20 | 43 6f 6e 6e 65 63 74 69 | string |Connecti|
|000001c0| 6e 67 54 6f 54 65 78 74 | 3b 0d 0a 76 61 72 20 6c |ngToText|;..var l|
|000001d0| 6f 63 61 6c 69 7a 65 64 | 20 73 74 72 69 6e 67 20 |ocalized| string |
|000001e0| 54 69 6d 65 4f 75 74 45 | 72 72 6f 72 3b 0d 0a 76 |TimeOutE|rror;..v|
|000001f0| 61 72 20 6c 6f 63 61 6c | 69 7a 65 64 20 73 74 72 |ar local|ized str|
|00000200| 69 6e 67 20 49 6e 76 69 | 74 65 53 74 72 69 6e 67 |ing Invi|teString|
|00000210| 3b 0d 0a 0d 0a 76 61 72 | 20 55 42 72 6f 77 73 65 |;....var| UBrowse|
|00000220| 72 49 52 43 53 79 73 74 | 65 6d 50 61 67 65 20 53 |rIRCSyst|emPage S|
|00000230| 79 73 74 65 6d 50 61 67 | 65 3b 20 0d 0a 0d 0a 76 |ystemPag|e; ....v|
|00000240| 61 72 20 73 74 72 69 6e | 67 20 44 69 73 63 6f 6e |ar strin|g Discon|
|00000250| 6e 65 63 74 52 65 61 73 | 6f 6e 3b 0d 0a 76 61 72 |nectReas|on;..var|
|00000260| 20 73 74 72 69 6e 67 20 | 56 65 72 73 69 6f 6e 53 | string |VersionS|
|00000270| 74 72 69 6e 67 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |tring;..|..functi|
|00000280| 6f 6e 20 50 6f 73 74 42 | 65 67 69 6e 50 6c 61 79 |on PostB|eginPlay|
|00000290| 28 29 0d 0a 7b 0d 0a 09 | 53 75 70 65 72 2e 50 6f |()..{...|Super.Po|
|000002a0| 73 74 42 65 67 69 6e 50 | 6c 61 79 28 29 3b 0d 0a |stBeginP|lay();..|
|000002b0| 09 44 69 73 61 62 6c 65 | 28 27 54 69 63 6b 27 29 |.Disable|('Tick')|
|000002c0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000002d0| 20 43 6f 6e 6e 65 63 74 | 28 55 42 72 6f 77 73 65 | Connect|(UBrowse|
|000002e0| 72 49 52 43 53 79 73 74 | 65 6d 50 61 67 65 20 49 |rIRCSyst|emPage I|
|000002f0| 6e 53 79 73 74 65 6d 50 | 61 67 65 2c 20 73 74 72 |nSystemP|age, str|
|00000300| 69 6e 67 20 49 6e 53 65 | 72 76 65 72 2c 20 73 74 |ing InSe|rver, st|
|00000310| 72 69 6e 67 20 49 6e 4e | 69 63 6b 4e 61 6d 65 2c |ring InN|ickName,|
|00000320| 20 73 74 72 69 6e 67 20 | 49 6e 55 73 65 72 49 64 | string |InUserId|
|00000330| 65 6e 74 2c 20 73 74 72 | 69 6e 67 20 49 6e 46 75 |ent, str|ing InFu|
|00000340| 6c 6c 4e 61 6d 65 2c 20 | 73 74 72 69 6e 67 20 49 |llName, |string I|
|00000350| 6e 44 65 66 61 75 6c 74 | 43 68 61 6e 6e 65 6c 29 |nDefault|Channel)|
|00000360| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 |..{...lo|cal int |
|00000370| 69 3b 0d 0a 0d 0a 09 53 | 79 73 74 65 6d 50 61 67 |i;.....S|ystemPag|
|00000380| 65 20 3d 20 49 6e 53 79 | 73 74 65 6d 50 61 67 65 |e = InSy|stemPage|
|00000390| 3b 0d 0a 09 4e 69 63 6b | 4e 61 6d 65 20 3d 20 49 |;...Nick|Name = I|
|000003a0| 6e 4e 69 63 6b 4e 61 6d | 65 3b 0d 0a 09 46 75 6c |nNickNam|e;...Ful|
|000003b0| 6c 4e 61 6d 65 20 3d 20 | 49 6e 46 75 6c 6c 4e 61 |lName = |InFullNa|
|000003c0| 6d 65 3b 0d 0a 09 55 73 | 65 72 49 64 65 6e 74 20 |me;...Us|erIdent |
|000003d0| 3d 20 49 6e 55 73 65 72 | 49 64 65 6e 74 3b 0d 0a |= InUser|Ident;..|
|000003e0| 09 44 65 66 61 75 6c 74 | 43 68 61 6e 6e 65 6c 20 |.Default|Channel |
|000003f0| 3d 20 49 6e 44 65 66 61 | 75 6c 74 43 68 61 6e 6e |= InDefa|ultChann|
|00000400| 65 6c 3b 0d 0a 0d 0a 09 | 69 20 3d 20 49 6e 53 74 |el;.....|i = InSt|
|00000410| 72 28 49 6e 53 65 72 76 | 65 72 2c 20 22 3a 22 29 |r(InServ|er, ":")|
|00000420| 3b 0d 0a 09 69 66 28 69 | 20 3d 3d 20 2d 31 29 0d |;...if(i| == -1).|
|00000430| 0a 09 7b 0d 0a 09 09 53 | 65 72 76 65 72 41 64 64 |..{....S|erverAdd|
|00000440| 72 65 73 73 20 3d 20 49 | 6e 53 65 72 76 65 72 3b |ress = I|nServer;|
|00000450| 0d 0a 09 09 53 65 72 76 | 65 72 50 6f 72 74 20 3d |....Serv|erPort =|
|00000460| 20 36 36 36 37 3b 0d 0a | 09 7d 0d 0a 09 65 6c 73 | 6667;..|.}...els|
|00000470| 65 0d 0a 09 7b 0d 0a 09 | 09 53 65 72 76 65 72 41 |e...{...|.ServerA|
|00000480| 64 64 72 65 73 73 20 3d | 20 4c 65 66 74 28 49 6e |ddress =| Left(In|
|00000490| 53 65 72 76 65 72 2c 20 | 69 29 3b 0d 0a 09 09 53 |Server, |i);....S|
|000004a0| 65 72 76 65 72 50 6f 72 | 74 20 3d 20 49 6e 74 28 |erverPor|t = Int(|
|000004b0| 4d 69 64 28 49 6e 53 65 | 72 76 65 72 2c 20 69 2b |Mid(InSe|rver, i+|
|000004c0| 31 29 29 3b 0d 0a 09 7d | 0d 0a 0d 0a 09 52 65 73 |1));...}|.....Res|
|000004d0| 65 74 42 75 66 66 65 72 | 28 29 3b 0d 0a 09 53 65 |etBuffer|();...Se|
|000004e0| 72 76 65 72 49 70 41 64 | 64 72 2e 50 6f 72 74 20 |rverIpAd|dr.Port |
|000004f0| 3d 20 53 65 72 76 65 72 | 50 6f 72 74 3b 0d 0a 09 |= Server|Port;...|
|00000500| 53 65 74 54 69 6d 65 72 | 28 32 30 2c 20 46 61 6c |SetTimer|(20, Fal|
|00000510| 73 65 29 3b 0d 0a 09 53 | 79 73 74 65 6d 50 61 67 |se);...S|ystemPag|
|00000520| 65 2e 53 79 73 74 65 6d | 54 65 78 74 28 20 43 6f |e.System|Text( Co|
|00000530| 6e 6e 65 63 74 69 6e 67 | 54 6f 54 65 78 74 40 53 |nnecting|ToText@S|
|00000540| 65 72 76 65 72 41 64 64 | 72 65 73 73 20 29 3b 0d |erverAdd|ress );.|
|00000550| 0a 09 52 65 73 6f 6c 76 | 65 28 20 53 65 72 76 65 |..Resolv|e( Serve|
|00000560| 72 41 64 64 72 65 73 73 | 20 29 3b 0d 0a 7d 0d 0a |rAddress| );..}..|
|00000570| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 73 74 72 69 6e |..functi|on strin|
|00000580| 67 20 43 68 6f 70 4c 65 | 66 74 28 73 74 72 69 6e |g ChopLe|ft(strin|
|00000590| 67 20 54 65 78 74 29 0d | 0a 7b 0d 0a 09 77 68 69 |g Text).|.{...whi|
|000005a0| 6c 65 28 54 65 78 74 20 | 21 3d 20 22 22 20 26 26 |le(Text |!= "" &&|
|000005b0| 20 49 6e 53 74 72 28 22 | 3a 20 21 22 2c 20 4c 65 | InStr("|: !", Le|
|000005c0| 66 74 28 54 65 78 74 2c | 20 31 29 29 20 21 3d 20 |ft(Text,| 1)) != |
|000005d0| 2d 31 29 0d 0a 09 09 54 | 65 78 74 20 3d 20 4d 69 |-1)....T|ext = Mi|
|000005e0| 64 28 54 65 78 74 2c 20 | 31 29 3b 0d 0a 09 72 65 |d(Text, |1);...re|
|000005f0| 74 75 72 6e 20 54 65 78 | 74 3b 0d 0a 7d 0d 0a 0d |turn Tex|t;..}...|
|00000600| 0a 66 75 6e 63 74 69 6f | 6e 20 73 74 72 69 6e 67 |.functio|n string|
|00000610| 20 52 65 6d 6f 76 65 4e | 69 63 6b 50 72 65 66 69 | RemoveN|ickPrefi|
|00000620| 78 28 73 74 72 69 6e 67 | 20 4e 69 63 6b 29 0d 0a |x(string| Nick)..|
|00000630| 7b 0d 0a 09 77 68 69 6c | 65 28 4e 69 63 6b 20 21 |{...whil|e(Nick !|
|00000640| 3d 20 22 22 20 26 26 20 | 49 6e 53 74 72 28 22 3a |= "" && |InStr(":|
|00000650| 40 2b 22 2c 20 4c 65 66 | 74 28 4e 69 63 6b 2c 20 |@+", Lef|t(Nick, |
|00000660| 31 29 29 20 21 3d 20 2d | 31 29 0d 0a 09 09 4e 69 |1)) != -|1)....Ni|
|00000670| 63 6b 20 3d 20 4d 69 64 | 28 4e 69 63 6b 2c 20 31 |ck = Mid|(Nick, 1|
|00000680| 29 3b 0d 0a 09 72 65 74 | 75 72 6e 20 4e 69 63 6b |);...ret|urn Nick|
|00000690| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000006a0| 20 73 74 72 69 6e 67 20 | 43 68 6f 70 28 73 74 72 | string |Chop(str|
|000006b0| 69 6e 67 20 54 65 78 74 | 29 0d 0a 7b 0d 0a 09 77 |ing Text|)..{...w|
|000006c0| 68 69 6c 65 28 54 65 78 | 74 20 21 3d 20 22 22 20 |hile(Tex|t != "" |
|000006d0| 26 26 20 49 6e 53 74 72 | 28 22 3a 20 21 22 2c 20 |&& InStr|(": !", |
|000006e0| 4c 65 66 74 28 54 65 78 | 74 2c 20 31 29 29 20 21 |Left(Tex|t, 1)) !|
|000006f0| 3d 20 2d 31 29 0d 0a 09 | 09 54 65 78 74 20 3d 20 |= -1)...|.Text = |
|00000700| 4d 69 64 28 54 65 78 74 | 2c 20 31 29 3b 0d 0a 09 |Mid(Text|, 1);...|
|00000710| 77 68 69 6c 65 28 54 65 | 78 74 20 21 3d 20 22 22 |while(Te|xt != ""|
|00000720| 20 26 26 20 49 6e 53 74 | 72 28 22 3a 20 21 22 2c | && InSt|r(": !",|
|00000730| 20 52 69 67 68 74 28 54 | 65 78 74 2c 20 31 29 29 | Right(T|ext, 1))|
|00000740| 20 21 3d 20 2d 31 29 0d | 0a 09 09 54 65 78 74 20 | != -1).|...Text |
|00000750| 3d 20 4c 65 66 74 28 54 | 65 78 74 2c 20 4c 65 6e |= Left(T|ext, Len|
|00000760| 28 54 65 78 74 29 2d 31 | 29 3b 0d 0a 0d 0a 09 72 |(Text)-1|);.....r|
|00000770| 65 74 75 72 6e 20 54 65 | 78 74 3b 0d 0a 7d 0d 0a |eturn Te|xt;..}..|
|00000780| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 52 65 73 6f 6c |..functi|on Resol|
|00000790| 76 65 64 28 20 49 70 41 | 64 64 72 20 41 64 64 72 |ved( IpA|ddr Addr|
|000007a0| 20 29 0d 0a 7b 0d 0a 09 | 2f 2f 20 53 65 74 20 74 | )..{...|// Set t|
|000007b0| 68 65 20 61 64 64 72 65 | 73 73 0d 0a 09 53 65 72 |he addre|ss...Ser|
|000007c0| 76 65 72 49 70 41 64 64 | 72 2e 41 64 64 72 20 3d |verIpAdd|r.Addr =|
|000007d0| 20 41 64 64 72 2e 41 64 | 64 72 3b 0d 0a 0d 0a 09 | Addr.Ad|dr;.....|
|000007e0| 2f 2f 20 48 61 6e 64 6c | 65 20 66 61 69 6c 75 72 |// Handl|e failur|
|000007f0| 65 2e 0d 0a 09 69 66 28 | 20 53 65 72 76 65 72 49 |e....if(| ServerI|
|00000800| 70 41 64 64 72 2e 41 64 | 64 72 20 3d 3d 20 30 20 |pAddr.Ad|dr == 0 |
|00000810| 29 0d 0a 09 7b 0d 0a 09 | 09 69 66 28 53 79 73 74 |)...{...|.if(Syst|
|00000820| 65 6d 50 61 67 65 20 21 | 3d 20 4e 6f 6e 65 29 0d |emPage !|= None).|
|00000830| 0a 09 09 7b 0d 0a 09 09 | 09 53 79 73 74 65 6d 50 |...{....|.SystemP|
|00000840| 61 67 65 2e 53 79 73 74 | 65 6d 54 65 78 74 28 20 |age.Syst|emText( |
|00000850| 49 6e 76 61 6c 69 64 41 | 64 64 72 65 73 73 54 65 |InvalidA|ddressTe|
|00000860| 78 74 20 29 3b 0d 0a 09 | 09 09 53 79 73 74 65 6d |xt );...|..System|
|00000870| 50 61 67 65 2e 44 69 73 | 63 6f 6e 6e 65 63 74 28 |Page.Dis|connect(|
|00000880| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 72 65 74 75 72 |);....}.|...retur|
|00000890| 6e 3b 0d 0a 09 7d 0d 0a | 0d 0a 09 2f 2f 20 44 69 |n;...}..|...// Di|
|000008a0| 73 70 6c 61 79 20 73 75 | 63 63 65 73 73 20 6d 65 |splay su|ccess me|
|000008b0| 73 73 61 67 65 2e 0d 0a | 09 4c 6f 67 28 20 22 55 |ssage...|.Log( "U|
|000008c0| 42 72 6f 77 73 65 72 49 | 52 43 4c 69 6e 6b 3a 20 |BrowserI|RCLink: |
|000008d0| 53 65 72 76 65 72 20 69 | 73 20 22 24 53 65 72 76 |Server i|s "$Serv|
|000008e0| 65 72 41 64 64 72 65 73 | 73 24 22 3a 22 24 53 65 |erAddres|s$":"$Se|
|000008f0| 72 76 65 72 49 70 41 64 | 64 72 2e 50 6f 72 74 20 |rverIpAd|dr.Port |
|00000900| 29 3b 0d 0a 0d 0a 09 2f | 2f 20 42 69 6e 64 20 74 |);...../|/ Bind t|
|00000910| 68 65 20 6c 6f 63 61 6c | 20 70 6f 72 74 2e 0d 0a |he local| port...|
|00000920| 09 69 66 28 20 42 69 6e | 64 50 6f 72 74 28 29 20 |.if( Bin|dPort() |
|00000930| 3d 3d 20 30 20 29 0d 0a | 09 7b 0d 0a 09 09 69 66 |== 0 )..|.{....if|
|00000940| 28 53 79 73 74 65 6d 50 | 61 67 65 20 21 3d 20 4e |(SystemP|age != N|
|00000950| 6f 6e 65 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 53 79 |one)....|{.....Sy|
|00000960| 73 74 65 6d 50 61 67 65 | 2e 53 79 73 74 65 6d 54 |stemPage|.SystemT|
|00000970| 65 78 74 28 20 45 72 72 | 6f 72 42 69 6e 64 69 6e |ext( Err|orBindin|
|00000980| 67 54 65 78 74 20 29 3b | 0d 0a 09 09 09 53 79 73 |gText );|.....Sys|
|00000990| 74 65 6d 50 61 67 65 2e | 44 69 73 63 6f 6e 6e 65 |temPage.|Disconne|
|000009a0| 63 74 28 29 3b 0d 0a 09 | 09 7d 0d 0a 09 09 72 65 |ct();...|.}....re|
|000009b0| 74 75 72 6e 3b 0d 0a 09 | 7d 0d 0a 0d 0a 09 4f 70 |turn;...|}.....Op|
|000009c0| 65 6e 28 20 53 65 72 76 | 65 72 49 70 41 64 64 72 |en( Serv|erIpAddr|
|000009d0| 20 29 3b 0d 0a 7d 0d 0a | 0d 0a 65 76 65 6e 74 20 | );..}..|..event |
|000009e0| 43 6c 6f 73 65 64 28 29 | 0d 0a 7b 0d 0a 09 69 66 |Closed()|..{...if|
|000009f0| 28 53 79 73 74 65 6d 50 | 61 67 65 20 21 3d 20 4e |(SystemP|age != N|
|00000a00| 6f 6e 65 29 0d 0a 09 09 | 53 79 73 74 65 6d 50 61 |one)....|SystemPa|
|00000a10| 67 65 2e 44 69 73 63 6f | 6e 6e 65 63 74 28 29 3b |ge.Disco|nnect();|
|00000a20| 0d 0a 7d 0d 0a 0d 0a 2f | 2f 20 48 6f 73 74 20 72 |..}..../|/ Host r|
|00000a30| 65 73 6f 6c 75 74 69 6f | 6e 20 66 61 69 6c 75 65 |esolutio|n failue|
|00000a40| 2e 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 52 65 73 6f |...funct|ion Reso|
|00000a50| 6c 76 65 46 61 69 6c 65 | 64 28 29 0d 0a 7b 0d 0a |lveFaile|d()..{..|
|00000a60| 09 69 66 28 53 79 73 74 | 65 6d 50 61 67 65 20 21 |.if(Syst|emPage !|
|00000a70| 3d 20 4e 6f 6e 65 29 0d | 0a 09 7b 0d 0a 09 09 53 |= None).|..{....S|
|00000a80| 79 73 74 65 6d 50 61 67 | 65 2e 53 79 73 74 65 6d |ystemPag|e.System|
|00000a90| 54 65 78 74 28 52 65 73 | 6f 6c 76 65 46 61 69 6c |Text(Res|olveFail|
|00000aa0| 65 64 54 65 78 74 29 3b | 0d 0a 09 09 53 79 73 74 |edText);|....Syst|
|00000ab0| 65 6d 50 61 67 65 2e 44 | 69 73 63 6f 6e 6e 65 63 |emPage.D|isconnec|
|00000ac0| 74 28 29 3b 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 65 |t();...}|..}....e|
|00000ad0| 76 65 6e 74 20 54 69 6d | 65 72 28 29 0d 0a 7b 0d |vent Tim|er()..{.|
|00000ae0| 0a 09 69 66 28 53 79 73 | 74 65 6d 50 61 67 65 20 |..if(Sys|temPage |
|00000af0| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 7b 0d 0a 09 09 |!= None)|...{....|
|00000b00| 53 79 73 74 65 6d 50 61 | 67 65 2e 53 79 73 74 65 |SystemPa|ge.Syste|
|00000b10| 6d 54 65 78 74 28 20 54 | 69 6d 65 4f 75 74 45 72 |mText( T|imeOutEr|
|00000b20| 72 6f 72 20 29 3b 0d 0a | 09 09 53 79 73 74 65 6d |ror );..|..System|
|00000b30| 50 61 67 65 2e 44 69 73 | 63 6f 6e 6e 65 63 74 28 |Page.Dis|connect(|
|00000b40| 29 3b 0d 0a 09 7d 0d 0a | 09 72 65 74 75 72 6e 3b |);...}..|.return;|
|00000b50| 0d 0a 7d 0d 0a 0d 0a 65 | 76 65 6e 74 20 4f 70 65 |..}....e|vent Ope|
|00000b60| 6e 65 64 28 29 0d 0a 7b | 0d 0a 09 53 65 74 54 69 |ned()..{|...SetTi|
|00000b70| 6d 65 72 28 30 2c 20 46 | 61 6c 73 65 29 3b 0d 0a |mer(0, F|alse);..|
|00000b80| 09 69 66 28 53 79 73 74 | 65 6d 50 61 67 65 20 21 |.if(Syst|emPage !|
|00000b90| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 53 79 73 74 65 |= None).|...Syste|
|00000ba0| 6d 50 61 67 65 2e 53 79 | 73 74 65 6d 54 65 78 74 |mPage.Sy|stemText|
|00000bb0| 28 43 6f 6e 6e 65 63 74 | 65 64 54 65 78 74 29 3b |(Connect|edText);|
|00000bc0| 0d 0a 09 45 6e 61 62 6c | 65 28 27 54 69 63 6b 27 |...Enabl|e('Tick'|
|00000bd0| 29 3b 0d 0a 09 47 6f 74 | 6f 53 74 61 74 65 28 27 |);...Got|oState('|
|00000be0| 4c 6f 67 67 69 6e 67 49 | 6e 27 29 3b 0d 0a 7d 0d |LoggingI|n');..}.|
|00000bf0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 54 69 63 6b |...funct|ion Tick|
|00000c00| 28 66 6c 6f 61 74 20 44 | 65 6c 74 61 54 69 6d 65 |(float D|eltaTime|
|00000c10| 29 0d 0a 7b 0d 0a 09 6c | 6f 63 61 6c 20 73 74 72 |)..{...l|ocal str|
|00000c20| 69 6e 67 20 4c 69 6e 65 | 3b 0d 0a 0d 0a 09 44 6f |ing Line|;.....Do|
|00000c30| 42 75 66 66 65 72 51 75 | 65 75 65 49 4f 28 29 3b |BufferQu|eueIO();|
|00000c40| 0d 0a 09 69 66 28 52 65 | 61 64 42 75 66 66 65 72 |...if(Re|adBuffer|
|00000c50| 65 64 4c 69 6e 65 28 4c | 69 6e 65 29 29 0d 0a 09 |edLine(L|ine))...|
|00000c60| 09 50 72 6f 63 65 73 73 | 49 6e 70 75 74 28 4c 69 |.Process|Input(Li|
|00000c70| 6e 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ne);..}.|...funct|
|00000c80| 69 6f 6e 20 53 65 6e 64 | 43 6f 6d 6d 61 6e 64 54 |ion Send|CommandT|
|00000c90| 65 78 74 28 73 74 72 69 | 6e 67 20 54 65 78 74 29 |ext(stri|ng Text)|
|00000ca0| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 |..{...lo|cal int |
|00000cb0| 69 2c 20 6a 3b 0d 0a 09 | 6c 6f 63 61 6c 20 73 74 |i, j;...|local st|
|00000cc0| 72 69 6e 67 20 43 6d 64 | 2c 20 54 65 6d 70 2c 20 |ring Cmd|, Temp, |
|00000cd0| 54 65 6d 70 32 3b 0d 0a | 0d 0a 09 2f 2f 20 50 72 |Temp2;..|...// Pr|
|00000ce0| 6f 63 65 73 73 20 66 61 | 6b 65 20 63 6f 6d 6d 61 |ocess fa|ke comma|
|00000cf0| 6e 64 73 20 6c 69 6b 65 | 20 2f 4d 53 47 0d 0a 09 |nds like| /MSG...|
|00000d00| 69 66 28 4c 65 66 74 28 | 54 65 78 74 2c 20 34 29 |if(Left(|Text, 4)|
|00000d10| 20 7e 3d 20 22 4d 53 47 | 20 22 29 0d 0a 09 09 54 | ~= "MSG| ")....T|
|00000d20| 65 78 74 20 3d 20 22 50 | 52 49 56 4d 53 47 20 22 |ext = "P|RIVMSG "|
|00000d30| 24 4d 69 64 28 54 65 78 | 74 2c 20 34 29 3b 0d 0a |$Mid(Tex|t, 4);..|
|00000d40| 09 69 66 28 4c 65 66 74 | 28 54 65 78 74 2c 20 36 |.if(Left|(Text, 6|
|00000d50| 29 20 7e 3d 20 22 4c 45 | 41 56 45 20 22 29 0d 0a |) ~= "LE|AVE ")..|
|00000d60| 09 09 54 65 78 74 20 3d | 20 22 50 41 52 54 20 22 |..Text =| "PART "|
|00000d70| 24 4d 69 64 28 54 65 78 | 74 2c 20 36 29 3b 0d 0a |$Mid(Tex|t, 6);..|
|00000d80| 0d 0a 09 2f 2f 20 41 64 | 64 20 63 6f 6c 6f 6e 73 |...// Ad|d colons|
|00000d90| 20 66 6f 72 20 63 6f 6d | 6d 61 6e 64 73 3a 20 50 | for com|mands: P|
|00000da0| 52 49 56 4d 53 47 2c 20 | 51 55 49 54 2c 20 4b 49 |RIVMSG, |QUIT, KI|
|00000db0| 4c 4c 2c 20 4b 49 43 4b | 2c 20 4e 4f 54 49 43 45 |LL, KICK|, NOTICE|
|00000dc0| 0d 0a 09 69 20 3d 20 49 | 6e 53 74 72 28 54 65 78 |...i = I|nStr(Tex|
|00000dd0| 74 2c 20 22 20 22 29 3b | 0d 0a 09 69 66 28 69 20 |t, " ");|...if(i |
|00000de0| 21 3d 20 2d 31 29 0d 0a | 09 7b 0d 0a 09 09 43 6d |!= -1)..|.{....Cm|
|00000df0| 64 20 3d 20 43 61 70 73 | 28 4c 65 66 74 28 54 65 |d = Caps|(Left(Te|
|00000e00| 78 74 2c 20 69 29 29 3b | 0d 0a 09 09 54 65 78 74 |xt, i));|....Text|
|00000e10| 20 3d 20 43 6d 64 24 4d | 69 64 28 54 65 78 74 2c | = Cmd$M|id(Text,|
|00000e20| 20 69 29 3b 0d 0a 0d 0a | 09 09 73 77 69 74 63 68 | i);....|..switch|
|00000e30| 28 43 6d 64 29 0d 0a 09 | 09 7b 0d 0a 09 09 2f 2f |(Cmd)...|.{....//|
|00000e40| 20 43 4d 44 20 6e 69 63 | 6b 20 3a 6d 65 73 73 61 | CMD nic|k :messa|
|00000e50| 67 65 0d 0a 09 09 63 61 | 73 65 20 22 50 52 49 56 |ge....ca|se "PRIV|
|00000e60| 4d 53 47 22 3a 0d 0a 09 | 09 63 61 73 65 20 22 4e |MSG":...|.case "N|
|00000e70| 4f 54 49 43 45 22 3a 0d | 0a 09 09 63 61 73 65 20 |OTICE":.|...case |
|00000e80| 22 4b 49 4c 4c 22 3a 0d | 0a 09 09 09 54 65 6d 70 |"KILL":.|....Temp|
|00000e90| 20 3d 20 43 68 6f 70 4c | 65 66 74 28 4d 69 64 28 | = ChopL|eft(Mid(|
|00000ea0| 54 65 78 74 2c 20 69 2b | 31 29 29 3b 0d 0a 09 09 |Text, i+|1));....|
|00000eb0| 09 69 20 3d 20 49 6e 53 | 74 72 28 54 65 6d 70 2c |.i = InS|tr(Temp,|
|00000ec0| 20 22 20 22 29 3b 0d 0a | 09 09 09 69 66 28 69 20 | " ");..|...if(i |
|00000ed0| 21 3d 20 2d 31 29 0d 0a | 09 09 09 09 54 65 78 74 |!= -1)..|....Text|
|00000ee0| 20 3d 20 43 6d 64 40 4c | 65 66 74 28 54 65 6d 70 | = Cmd@L|eft(Temp|
|00000ef0| 2c 20 69 29 24 22 20 3a | 22 24 43 68 6f 70 4c 65 |, i)$" :|"$ChopLe|
|00000f00| 66 74 28 4d 69 64 28 54 | 65 6d 70 2c 20 69 2b 31 |ft(Mid(T|emp, i+1|
|00000f10| 29 29 3b 0d 0a 09 09 09 | 62 72 65 61 6b 3b 0d 0a |));.....|break;..|
|00000f20| 09 09 2f 2f 20 68 61 63 | 6b 20 66 6f 72 20 43 54 |..// hac|k for CT|
|00000f30| 43 50 0d 0a 09 09 63 61 | 73 65 20 22 43 54 43 50 |CP....ca|se "CTCP|
|00000f40| 22 3a 0d 0a 09 09 09 54 | 65 6d 70 20 3d 20 43 68 |":.....T|emp = Ch|
|00000f50| 6f 70 4c 65 66 74 28 4d | 69 64 28 54 65 78 74 2c |opLeft(M|id(Text,|
|00000f60| 20 69 2b 31 29 29 3b 0d | 0a 09 09 09 69 20 3d 20 | i+1));.|....i = |
|00000f70| 49 6e 53 74 72 28 54 65 | 6d 70 2c 20 22 20 22 29 |InStr(Te|mp, " ")|
|00000f80| 3b 0d 0a 09 09 09 69 66 | 28 69 20 21 3d 20 2d 31 |;.....if|(i != -1|
|00000f90| 29 0d 0a 09 09 09 09 54 | 65 78 74 20 3d 20 22 50 |)......T|ext = "P|
|00000fa0| 52 49 56 4d 53 47 20 22 | 24 4c 65 66 74 28 54 65 |RIVMSG "|$Left(Te|
|00000fb0| 6d 70 2c 20 69 29 24 22 | 20 3a 22 24 43 68 72 28 |mp, i)$"| :"$Chr(|
|00000fc0| 31 29 24 43 68 6f 70 4c | 65 66 74 28 4d 69 64 28 |1)$ChopL|eft(Mid(|
|00000fd0| 54 65 6d 70 2c 20 69 2b | 31 29 29 24 43 68 72 28 |Temp, i+|1))$Chr(|
|00000fe0| 31 29 3b 0d 0a 09 09 09 | 62 72 65 61 6b 3b 0d 0a |1);.....|break;..|
|00000ff0| 09 09 2f 2f 20 43 4d 44 | 20 23 63 68 61 6e 6e 65 |..// CMD| #channe|
|00001000| 6c 20 6e 69 63 6b 20 3a | 6d 65 73 73 61 67 65 0d |l nick :|message.|
|00001010| 0a 09 09 63 61 73 65 20 | 22 4b 49 43 4b 22 3a 0d |...case |"KICK":.|
|00001020| 0a 09 09 09 54 65 6d 70 | 20 3d 20 43 68 6f 70 4c |....Temp| = ChopL|
|00001030| 65 66 74 28 4d 69 64 28 | 54 65 78 74 2c 20 69 2b |eft(Mid(|Text, i+|
|00001040| 31 29 29 3b 0d 0a 09 09 | 09 69 20 3d 20 49 6e 53 |1));....|.i = InS|
|00001050| 74 72 28 54 65 6d 70 2c | 20 22 20 22 29 3b 0d 0a |tr(Temp,| " ");..|
|00001060| 09 09 09 69 66 28 69 20 | 21 3d 20 2d 31 29 0d 0a |...if(i |!= -1)..|
|00001070| 09 09 09 7b 0d 0a 09 09 | 09 09 54 65 6d 70 32 20 |...{....|..Temp2 |
|00001080| 3d 20 43 68 6f 70 4c 65 | 66 74 28 4d 69 64 28 54 |= ChopLe|ft(Mid(T|
|00001090| 65 6d 70 2c 20 69 2b 31 | 29 29 3b 0d 0a 09 09 09 |emp, i+1|));.....|
|000010a0| 09 6a 20 3d 20 49 6e 53 | 74 72 28 54 65 6d 70 32 |.j = InS|tr(Temp2|
|000010b0| 2c 20 22 20 22 29 3b 0d | 0a 09 09 09 09 69 66 28 |, " ");.|.....if(|
|000010c0| 6a 20 21 3d 20 2d 31 29 | 0d 0a 09 09 09 09 09 54 |j != -1)|.......T|
|000010d0| 65 78 74 20 3d 20 43 6d | 64 40 4c 65 66 74 28 54 |ext = Cm|d@Left(T|
|000010e0| 65 6d 70 2c 20 69 29 40 | 4c 65 66 74 28 54 65 6d |emp, i)@|Left(Tem|
|000010f0| 70 32 2c 20 6a 29 24 22 | 20 3a 22 24 43 68 6f 70 |p2, j)$"| :"$Chop|
|00001100| 4c 65 66 74 28 4d 69 64 | 28 54 65 6d 70 32 2c 20 |Left(Mid|(Temp2, |
|00001110| 6a 2b 31 29 29 3b 0d 0a | 09 09 09 7d 0d 0a 09 09 |j+1));..|...}....|
|00001120| 09 62 72 65 61 6b 3b 0d | 0a 09 09 2f 2f 20 43 4d |.break;.|...// CM|
|00001130| 44 20 3a 6d 65 73 73 61 | 67 65 0d 0a 09 09 63 61 |D :messa|ge....ca|
|00001140| 73 65 20 22 51 55 49 54 | 22 3a 0d 0a 09 09 09 54 |se "QUIT|":.....T|
|00001150| 65 78 74 20 3d 20 43 6d | 64 24 22 20 3a 22 24 43 |ext = Cm|d$" :"$C|
|00001160| 68 6f 70 4c 65 66 74 28 | 4d 69 64 28 54 65 78 74 |hopLeft(|Mid(Text|
|00001170| 2c 20 69 2b 31 29 29 3b | 0d 0a 09 09 09 62 72 65 |, i+1));|.....bre|
|00001180| 61 6b 3b 0d 0a 09 09 7d | 0d 0a 09 7d 0d 0a 09 65 |ak;....}|...}...e|
|00001190| 6c 73 65 0d 0a 09 09 54 | 65 78 74 20 3d 20 43 61 |lse....T|ext = Ca|
|000011a0| 70 73 28 54 65 78 74 29 | 3b 09 0d 0a 0d 0a 09 53 |ps(Text)|;......S|
|000011b0| 65 6e 64 42 75 66 66 65 | 72 65 64 44 61 74 61 28 |endBuffe|redData(|
|000011c0| 54 65 78 74 24 43 52 4c | 46 29 3b 0d 0a 7d 0d 0a |Text$CRL|F);..}..|
|000011d0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 6e 64 43 |..functi|on SendC|
|000011e0| 68 61 6e 6e 65 6c 54 65 | 78 74 28 73 74 72 69 6e |hannelTe|xt(strin|
|000011f0| 67 20 43 68 61 6e 6e 65 | 6c 2c 20 73 74 72 69 6e |g Channe|l, strin|
|00001200| 67 20 54 65 78 74 29 0d | 0a 7b 0d 0a 09 53 65 6e |g Text).|.{...Sen|
|00001210| 64 42 75 66 66 65 72 65 | 64 44 61 74 61 28 22 50 |dBuffere|dData("P|
|00001220| 52 49 56 4d 53 47 20 22 | 24 43 68 61 6e 6e 65 6c |RIVMSG "|$Channel|
|00001230| 24 22 20 3a 22 24 54 65 | 78 74 24 43 52 4c 46 29 |$" :"$Te|xt$CRLF)|
|00001240| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00001250| 20 53 65 6e 64 43 68 61 | 6e 6e 65 6c 41 63 74 69 | SendCha|nnelActi|
|00001260| 6f 6e 28 73 74 72 69 6e | 67 20 43 68 61 6e 6e 65 |on(strin|g Channe|
|00001270| 6c 2c 20 73 74 72 69 6e | 67 20 54 65 78 74 29 0d |l, strin|g Text).|
|00001280| 0a 7b 0d 0a 09 53 65 6e | 64 42 75 66 66 65 72 65 |.{...Sen|dBuffere|
|00001290| 64 44 61 74 61 28 22 50 | 52 49 56 4d 53 47 20 22 |dData("P|RIVMSG "|
|000012a0| 24 43 68 61 6e 6e 65 6c | 24 22 20 3a 22 24 43 68 |$Channel|$" :"$Ch|
|000012b0| 72 28 31 29 24 22 41 43 | 54 49 4f 4e 20 22 24 54 |r(1)$"AC|TION "$T|
|000012c0| 65 78 74 24 43 68 72 28 | 31 29 24 43 52 4c 46 29 |ext$Chr(|1)$CRLF)|
|000012d0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000012e0| 20 50 72 6f 63 65 73 73 | 49 6e 70 75 74 28 73 74 | Process|Input(st|
|000012f0| 72 69 6e 67 20 4c 69 6e | 65 29 0d 0a 7b 0d 0a 09 |ring Lin|e)..{...|
|00001300| 2f 2f 20 52 65 73 70 6f | 6e 64 20 74 6f 20 50 49 |// Respo|nd to PI|
|00001310| 4e 47 0d 0a 09 69 66 28 | 4c 65 66 74 28 4c 69 6e |NG...if(|Left(Lin|
|00001320| 65 2c 20 35 29 20 3d 3d | 20 22 50 49 4e 47 20 22 |e, 5) ==| "PING "|
|00001330| 29 0d 0a 09 09 53 65 6e | 64 42 75 66 66 65 72 65 |)....Sen|dBuffere|
|00001340| 64 44 61 74 61 28 22 50 | 4f 4e 47 20 22 24 4d 69 |dData("P|ONG "$Mi|
|00001350| 64 28 4c 69 6e 65 2c 20 | 35 29 24 43 52 4c 46 29 |d(Line, |5)$CRLF)|
|00001360| 3b 0d 0a 7d 0d 0a 0d 0a | 73 74 61 74 65 20 4c 6f |;..}....|state Lo|
|00001370| 67 67 69 6e 67 49 6e 0d | 0a 7b 0d 0a 09 66 75 6e |ggingIn.|.{...fun|
|00001380| 63 74 69 6f 6e 20 50 72 | 6f 63 65 73 73 49 6e 70 |ction Pr|ocessInp|
|00001390| 75 74 28 73 74 72 69 6e | 67 20 4c 69 6e 65 29 0d |ut(strin|g Line).|
|000013a0| 0a 09 7b 0d 0a 09 09 6c | 6f 63 61 6c 20 73 74 72 |..{....l|ocal str|
|000013b0| 69 6e 67 20 54 65 6d 70 | 3b 0d 0a 09 09 0d 0a 09 |ing Temp|;.......|
|000013c0| 09 54 65 6d 70 20 3d 20 | 50 61 72 73 65 44 65 6c |.Temp = |ParseDel|
|000013d0| 69 6d 69 74 65 64 28 4c | 69 6e 65 2c 20 22 20 22 |imited(L|ine, " "|
|000013e0| 2c 20 32 29 3b 0d 0a 0d | 0a 09 09 69 66 28 50 61 |, 2);...|...if(Pa|
|000013f0| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00001400| 65 2c 20 22 20 22 2c 20 | 31 29 3d 3d 20 22 45 52 |e, " ", |1)== "ER|
|00001410| 52 4f 52 22 29 0d 0a 09 | 09 09 53 79 73 74 65 6d |ROR")...|..System|
|00001420| 50 61 67 65 2e 53 79 73 | 74 65 6d 54 65 78 74 28 |Page.Sys|temText(|
|00001430| 43 68 6f 70 4c 65 66 74 | 28 50 61 72 73 65 44 65 |ChopLeft|(ParseDe|
|00001440| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 3a |limited(|Line, ":|
|00001450| 22 2c 20 32 2c 20 54 72 | 75 65 29 29 29 3b 0d 0a |", 2, Tr|ue)));..|
|00001460| 0d 0a 09 09 2f 2f 20 48 | 61 6e 64 6c 65 20 6e 69 |....// H|andle ni|
|00001470| 63 6b 20 61 6c 72 65 61 | 64 79 20 69 6e 20 75 73 |ck alrea|dy in us|
|00001480| 65 20 6f 6e 20 63 6f 6e | 6e 65 63 74 2e 2e 2e 0d |e on con|nect....|
|00001490| 0a 09 09 69 66 28 54 65 | 6d 70 20 3d 3d 20 22 34 |...if(Te|mp == "4|
|000014a0| 33 33 22 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 53 79 |33")....|{.....Sy|
|000014b0| 73 74 65 6d 50 61 67 65 | 2e 53 79 73 74 65 6d 54 |stemPage|.SystemT|
|000014c0| 65 78 74 28 43 68 6f 70 | 4c 65 66 74 28 50 61 72 |ext(Chop|Left(Par|
|000014d0| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|000014e0| 2c 20 22 20 22 2c 20 33 | 2c 20 54 72 75 65 29 29 |, " ", 3|, True))|
|000014f0| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 65 6c 73 65 0d |);....}.|...else.|
|00001500| 0a 09 09 69 66 28 49 6e | 74 28 54 65 6d 70 29 20 |...if(In|t(Temp) |
|00001510| 21 3d 20 30 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 53 |!= 0)...|.{.....S|
|00001520| 79 73 74 65 6d 50 61 67 | 65 2e 53 79 73 74 65 6d |ystemPag|e.System|
|00001530| 54 65 78 74 28 43 68 6f | 70 4c 65 66 74 28 50 61 |Text(Cho|pLeft(Pa|
|00001540| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00001550| 65 2c 20 22 20 22 2c 20 | 33 2c 20 54 72 75 65 29 |e, " ", |3, True)|
|00001560| 29 29 3b 0d 0a 09 09 09 | 47 6f 74 6f 53 74 61 74 |));.....|GotoStat|
|00001570| 65 28 27 4c 6f 67 67 65 | 64 49 6e 27 29 3b 0d 0a |e('Logge|dIn');..|
|00001580| 09 09 7d 0d 0a 0d 0a 09 | 09 47 6c 6f 62 61 6c 2e |..}.....|.Global.|
|00001590| 50 72 6f 63 65 73 73 49 | 6e 70 75 74 28 4c 69 6e |ProcessI|nput(Lin|
|000015a0| 65 29 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 66 75 6e 63 |e);...}.|....func|
|000015b0| 74 69 6f 6e 20 53 65 6e | 64 43 6f 6d 6d 61 6e 64 |tion Sen|dCommand|
|000015c0| 54 65 78 74 28 73 74 72 | 69 6e 67 20 54 65 78 74 |Text(str|ing Text|
|000015d0| 29 0d 0a 09 7b 0d 0a 09 | 09 47 6c 6f 62 61 6c 2e |)...{...|.Global.|
|000015e0| 53 65 6e 64 43 6f 6d 6d | 61 6e 64 54 65 78 74 28 |SendComm|andText(|
|000015f0| 54 65 78 74 29 3b 0d 0a | 09 09 69 66 28 50 61 72 |Text);..|..if(Par|
|00001600| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 54 65 78 74 |seDelimi|ted(Text|
|00001610| 2c 20 22 20 22 2c 20 31 | 29 20 7e 3d 20 22 4e 49 |, " ", 1|) ~= "NI|
|00001620| 43 4b 22 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 53 79 |CK")....|{.....Sy|
|00001630| 73 74 65 6d 50 61 67 65 | 2e 43 68 61 6e 67 65 64 |stemPage|.Changed|
|00001640| 4e 69 63 6b 28 4e 69 63 | 6b 4e 61 6d 65 2c 20 43 |Nick(Nic|kName, C|
|00001650| 68 6f 70 28 50 61 72 73 | 65 44 65 6c 69 6d 69 74 |hop(Pars|eDelimit|
|00001660| 65 64 28 54 65 78 74 2c | 20 22 20 22 2c 20 32 29 |ed(Text,| " ", 2)|
|00001670| 29 29 3b 0d 0a 09 09 7d | 0d 0a 09 7d 0d 0a 0d 0a |));....}|...}....|
|00001680| 42 65 67 69 6e 3a 0d 0a | 09 53 65 6e 64 42 75 66 |Begin:..|.SendBuf|
|00001690| 66 65 72 65 64 44 61 74 | 61 28 22 55 53 45 52 20 |feredDat|a("USER |
|000016a0| 22 24 55 73 65 72 49 64 | 65 6e 74 24 22 20 6c 6f |"$UserId|ent$" lo|
|000016b0| 63 61 6c 68 6f 73 74 20 | 22 24 53 65 72 76 65 72 |calhost |"$Server|
|000016c0| 41 64 64 72 65 73 73 24 | 22 20 3a 22 24 46 75 6c |Address$|" :"$Ful|
|000016d0| 6c 4e 61 6d 65 24 43 52 | 4c 46 29 3b 0d 0a 09 53 |lName$CR|LF);...S|
|000016e0| 65 6e 64 42 75 66 66 65 | 72 65 64 44 61 74 61 28 |endBuffe|redData(|
|000016f0| 22 4e 49 43 4b 20 22 24 | 4e 69 63 6b 4e 61 6d 65 |"NICK "$|NickName|
|00001700| 24 43 52 4c 46 29 3b 0d | 0a 7d 0d 0a 0d 0a 73 74 |$CRLF);.|.}....st|
|00001710| 61 74 65 20 4c 6f 67 67 | 65 64 49 6e 0d 0a 7b 0d |ate Logg|edIn..{.|
|00001720| 0a 09 66 75 6e 63 74 69 | 6f 6e 20 50 72 6f 63 65 |..functi|on Proce|
|00001730| 73 73 49 6e 70 75 74 28 | 73 74 72 69 6e 67 20 4c |ssInput(|string L|
|00001740| 69 6e 65 29 0d 0a 09 7b | 0d 0a 09 09 6c 6f 63 61 |ine)...{|....loca|
|00001750| 6c 20 73 74 72 69 6e 67 | 20 54 65 6d 70 2c 20 54 |l string| Temp, T|
|00001760| 65 6d 70 32 2c 20 54 65 | 6d 70 33 3b 0d 0a 09 09 |emp2, Te|mp3;....|
|00001770| 6c 6f 63 61 6c 20 62 6f | 6f 6c 20 62 41 64 64 4d |local bo|ol bAddM|
|00001780| 6f 64 69 66 69 65 72 3b | 0d 0a 09 09 6c 6f 63 61 |odifier;|....loca|
|00001790| 6c 20 69 6e 74 20 69 3b | 0d 0a 09 09 6c 6f 63 61 |l int i;|....loca|
|000017a0| 6c 20 73 74 72 69 6e 67 | 20 43 6f 6d 6d 61 6e 64 |l string| Command|
|000017b0| 3b 0d 0a 0d 0a 09 09 47 | 6c 6f 62 61 6c 2e 50 72 |;......G|lobal.Pr|
|000017c0| 6f 63 65 73 73 49 6e 70 | 75 74 28 4c 69 6e 65 29 |ocessInp|ut(Line)|
|000017d0| 3b 0d 0a 09 09 0d 0a 09 | 09 43 6f 6d 6d 61 6e 64 |;.......|.Command|
|000017e0| 20 3d 20 50 61 72 73 65 | 44 65 6c 69 6d 69 74 65 | = Parse|Delimite|
|000017f0| 64 28 4c 69 6e 65 2c 20 | 22 20 22 2c 20 32 29 3b |d(Line, |" ", 2);|
|00001800| 0d 0a 0d 0a 09 09 69 66 | 28 50 61 72 73 65 44 65 |......if|(ParseDe|
|00001810| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 20 |limited(|Line, " |
|00001820| 22 2c 20 31 29 20 3d 3d | 20 22 45 52 52 4f 52 22 |", 1) ==| "ERROR"|
|00001830| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 53 79 73 74 65 |)....{..|...Syste|
|00001840| 6d 50 61 67 65 2e 53 79 | 73 74 65 6d 54 65 78 74 |mPage.Sy|stemText|
|00001850| 28 43 68 6f 70 4c 65 66 | 74 28 50 61 72 73 65 44 |(ChopLef|t(ParseD|
|00001860| 65 6c 69 6d 69 74 65 64 | 28 4c 69 6e 65 2c 20 22 |elimited|(Line, "|
|00001870| 3a 22 2c 20 32 2c 20 54 | 72 75 65 29 29 29 3b 0d |:", 2, T|rue)));.|
|00001880| 0a 09 09 7d 0d 0a 09 09 | 65 6c 73 65 20 69 66 28 |...}....|else if(|
|00001890| 43 6f 6d 6d 61 6e 64 20 | 3d 3d 20 22 4a 4f 49 4e |Command |== "JOIN|
|000018a0| 22 29 0d 0a 09 09 7b 0d | 0a 09 09 09 54 65 6d 70 |")....{.|....Temp|
|000018b0| 20 3d 20 50 61 72 73 65 | 44 65 6c 69 6d 69 74 65 | = Parse|Delimite|
|000018c0| 64 28 4c 69 6e 65 2c 20 | 22 3a 21 22 2c 20 32 29 |d(Line, |":!", 2)|
|000018d0| 3b 0d 0a 09 09 09 69 66 | 28 54 65 6d 70 20 7e 3d |;.....if|(Temp ~=|
|000018e0| 20 4e 69 63 6b 4e 61 6d | 65 29 0d 0a 09 09 09 09 | NickNam|e)......|
|000018f0| 54 65 6d 70 20 3d 20 22 | 22 3b 0d 0a 09 09 09 53 |Temp = "|";.....S|
|00001900| 79 73 74 65 6d 50 61 67 | 65 2e 4a 6f 69 6e 65 64 |ystemPag|e.Joined|
|00001910| 43 68 61 6e 6e 65 6c 28 | 43 68 6f 70 28 50 61 72 |Channel(|Chop(Par|
|00001920| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|00001930| 2c 20 22 20 22 2c 20 33 | 29 29 2c 20 54 65 6d 70 |, " ", 3|)), Temp|
|00001940| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 65 6c 73 65 20 |);....}.|...else |
|00001950| 69 66 28 43 6f 6d 6d 61 | 6e 64 20 3d 3d 20 22 50 |if(Comma|nd == "P|
|00001960| 41 52 54 22 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 54 |ART")...|.{.....T|
|00001970| 65 6d 70 20 3d 20 50 61 | 72 73 65 44 65 6c 69 6d |emp = Pa|rseDelim|
|00001980| 69 74 65 64 28 4c 69 6e | 65 2c 20 22 3a 21 22 2c |ited(Lin|e, ":!",|
|00001990| 20 32 29 3b 0d 0a 09 09 | 09 69 66 28 54 65 6d 70 | 2);....|.if(Temp|
|000019a0| 20 7e 3d 20 4e 69 63 6b | 4e 61 6d 65 29 0d 0a 09 | ~= Nick|Name)...|
|000019b0| 09 09 09 54 65 6d 70 20 | 3d 20 22 22 3b 0d 0a 09 |...Temp |= "";...|
|000019c0| 09 09 53 79 73 74 65 6d | 50 61 67 65 2e 50 61 72 |..System|Page.Par|
|000019d0| 74 65 64 43 68 61 6e 6e | 65 6c 28 43 68 6f 70 28 |tedChann|el(Chop(|
|000019e0| 50 61 72 73 65 44 65 6c | 69 6d 69 74 65 64 28 4c |ParseDel|imited(L|
|000019f0| 69 6e 65 2c 20 22 20 22 | 2c 20 33 29 29 2c 20 54 |ine, " "|, 3)), T|
|00001a00| 65 6d 70 29 3b 0d 0a 09 | 09 7d 0d 0a 09 09 65 6c |emp);...|.}....el|
|00001a10| 73 65 20 69 66 28 43 6f | 6d 6d 61 6e 64 20 3d 3d |se if(Co|mmand ==|
|00001a20| 20 22 4e 49 43 4b 22 29 | 0d 0a 09 09 7b 0d 0a 09 | "NICK")|....{...|
|00001a30| 09 09 53 79 73 74 65 6d | 50 61 67 65 2e 43 68 61 |..System|Page.Cha|
|00001a40| 6e 67 65 64 4e 69 63 6b | 28 50 61 72 73 65 44 65 |ngedNick|(ParseDe|
|00001a50| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 3a |limited(|Line, ":|
|00001a60| 21 22 2c 20 32 29 2c 20 | 43 68 6f 70 28 50 61 72 |!", 2), |Chop(Par|
|00001a70| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|00001a80| 2c 20 22 20 22 2c 20 33 | 29 29 29 3b 0d 0a 09 09 |, " ", 3|)));....|
|00001a90| 7d 0d 0a 09 09 65 6c 73 | 65 20 69 66 28 43 6f 6d |}....els|e if(Com|
|00001aa0| 6d 61 6e 64 20 3d 3d 20 | 22 51 55 49 54 22 29 0d |mand == |"QUIT").|
|00001ab0| 0a 09 09 7b 0d 0a 09 09 | 09 53 79 73 74 65 6d 50 |...{....|.SystemP|
|00001ac0| 61 67 65 2e 55 73 65 72 | 51 75 69 74 28 50 61 72 |age.User|Quit(Par|
|00001ad0| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|00001ae0| 2c 20 22 3a 21 22 2c 20 | 32 29 2c 20 43 68 6f 70 |, ":!", |2), Chop|
|00001af0| 4c 65 66 74 28 50 61 72 | 73 65 44 65 6c 69 6d 69 |Left(Par|seDelimi|
|00001b00| 74 65 64 28 4c 69 6e 65 | 2c 20 22 20 22 2c 20 33 |ted(Line|, " ", 3|
|00001b10| 2c 20 54 72 75 65 29 29 | 29 3b 0d 0a 09 09 7d 0d |, True))|);....}.|
|00001b20| 0a 09 09 65 6c 73 65 20 | 69 66 28 43 6f 6d 6d 61 |...else |if(Comma|
|00001b30| 6e 64 20 3d 3d 20 22 33 | 35 33 22 29 09 2f 2f 20 |nd == "3|53").// |
|00001b40| 4e 41 4d 45 53 0d 0a 09 | 09 7b 0d 0a 09 09 09 54 |NAMES...|.{.....T|
|00001b50| 65 6d 70 32 20 3d 20 50 | 61 72 73 65 44 65 6c 69 |emp2 = P|arseDeli|
|00001b60| 6d 69 74 65 64 28 4c 69 | 6e 65 2c 20 22 23 22 2c |mited(Li|ne, "#",|
|00001b70| 20 32 29 3b 0d 0a 09 09 | 09 54 65 6d 70 32 20 3d | 2);....|.Temp2 =|
|00001b80| 20 50 61 72 73 65 44 65 | 6c 69 6d 69 74 65 64 28 | ParseDe|limited(|
|00001b90| 54 65 6d 70 32 2c 20 22 | 20 3a 22 2c 20 31 29 3b |Temp2, "| :", 1);|
|00001ba0| 0d 0a 0d 0a 09 09 09 54 | 65 6d 70 20 3d 20 50 61 |.......T|emp = Pa|
|00001bb0| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00001bc0| 65 2c 20 22 3a 22 2c 20 | 33 2c 20 54 72 75 65 29 |e, ":", |3, True)|
|00001bd0| 3b 0d 0a 09 09 09 77 68 | 69 6c 65 28 54 65 6d 70 |;.....wh|ile(Temp|
|00001be0| 20 21 3d 20 22 22 29 0d | 0a 09 09 09 7b 0d 0a 09 | != "").|....{...|
|00001bf0| 09 09 09 2f 2f 20 4e 69 | 63 6b 6e 61 6d 65 0d 0a |...// Ni|ckname..|
|00001c00| 09 09 09 09 54 65 6d 70 | 33 20 3d 20 50 61 72 73 |....Temp|3 = Pars|
|00001c10| 65 44 65 6c 69 6d 69 74 | 65 64 28 54 65 6d 70 2c |eDelimit|ed(Temp,|
|00001c20| 20 22 20 22 2c 20 31 29 | 3b 0d 0a 0d 0a 09 09 09 | " ", 1)|;.......|
|00001c30| 09 53 79 73 74 65 6d 50 | 61 67 65 2e 55 73 65 72 |.SystemP|age.User|
|00001c40| 49 6e 43 68 61 6e 6e 65 | 6c 28 22 23 22 24 54 65 |InChanne|l("#"$Te|
|00001c50| 6d 70 32 2c 20 52 65 6d | 6f 76 65 4e 69 63 6b 50 |mp2, Rem|oveNickP|
|00001c60| 72 65 66 69 78 28 54 65 | 6d 70 33 29 29 3b 0d 0a |refix(Te|mp3));..|
|00001c70| 0d 0a 09 09 09 09 69 66 | 28 4c 65 66 74 28 54 65 |......if|(Left(Te|
|00001c80| 6d 70 33 2c 20 31 29 20 | 3d 3d 20 22 40 22 29 0d |mp3, 1) |== "@").|
|00001c90| 0a 09 09 09 09 09 53 79 | 73 74 65 6d 50 61 67 65 |......Sy|stemPage|
|00001ca0| 2e 43 68 61 6e 67 65 4f | 70 28 22 23 22 24 54 65 |.ChangeO|p("#"$Te|
|00001cb0| 6d 70 32 2c 20 52 65 6d | 6f 76 65 4e 69 63 6b 50 |mp2, Rem|oveNickP|
|00001cc0| 72 65 66 69 78 28 54 65 | 6d 70 33 29 2c 20 54 72 |refix(Te|mp3), Tr|
|00001cd0| 75 65 29 3b 0d 0a 09 09 | 09 09 65 6c 73 65 0d 0a |ue);....|..else..|
|00001ce0| 09 09 09 09 69 66 28 4c | 65 66 74 28 54 65 6d 70 |....if(L|eft(Temp|
|00001cf0| 33 2c 20 31 29 20 3d 3d | 20 22 2b 22 29 0d 0a 09 |3, 1) ==| "+")...|
|00001d00| 09 09 09 09 53 79 73 74 | 65 6d 50 61 67 65 2e 43 |....Syst|emPage.C|
|00001d10| 68 61 6e 67 65 56 6f 69 | 63 65 28 22 23 22 24 54 |hangeVoi|ce("#"$T|
|00001d20| 65 6d 70 32 2c 20 52 65 | 6d 6f 76 65 4e 69 63 6b |emp2, Re|moveNick|
|00001d30| 50 72 65 66 69 78 28 54 | 65 6d 70 33 29 2c 20 54 |Prefix(T|emp3), T|
|00001d40| 72 75 65 29 3b 0d 0a 0d | 0a 09 09 09 09 54 65 6d |rue);...|.....Tem|
|00001d50| 70 20 3d 20 50 61 72 73 | 65 44 65 6c 69 6d 69 74 |p = Pars|eDelimit|
|00001d60| 65 64 28 54 65 6d 70 2c | 20 22 20 22 2c 20 32 2c |ed(Temp,| " ", 2,|
|00001d70| 20 54 72 75 65 29 3b 0d | 0a 09 09 09 7d 09 0d 0a | True);.|....}...|
|00001d80| 09 09 7d 0d 0a 09 09 65 | 6c 73 65 20 69 66 28 43 |..}....e|lse if(C|
|00001d90| 6f 6d 6d 61 6e 64 20 3d | 3d 20 22 33 33 33 22 29 |ommand =|= "333")|
|00001da0| 09 2f 2f 20 43 68 61 6e | 6e 65 6c 20 66 6f 72 6d |.// Chan|nel form|
|00001db0| 65 64 20 69 6e 66 6f 0d | 0a 09 09 7b 0d 0a 09 09 |ed info.|...{....|
|00001dc0| 7d 0d 0a 09 09 65 6c 73 | 65 20 69 66 28 43 6f 6d |}....els|e if(Com|
|00001dd0| 6d 61 6e 64 20 3d 3d 20 | 22 33 36 36 22 29 09 2f |mand == |"366")./|
|00001de0| 2f 20 45 6e 64 20 6f 66 | 20 4e 41 4d 45 53 0d 0a |/ End of| NAMES..|
|00001df0| 09 09 7b 0d 0a 09 09 7d | 0d 0a 09 09 65 6c 73 65 |..{....}|....else|
|00001e00| 20 69 66 28 43 6f 6d 6d | 61 6e 64 20 3d 3d 20 22 | if(Comm|and == "|
|00001e10| 33 33 31 22 29 09 2f 2f | 20 52 50 4c 5f 4e 4f 54 |331").//| RPL_NOT|
|00001e20| 4f 50 49 43 0d 0a 09 09 | 7b 0d 0a 09 09 7d 0d 0a |OPIC....|{....}..|
|00001e30| 09 09 65 6c 73 65 20 69 | 66 28 43 6f 6d 6d 61 6e |..else i|f(Comman|
|00001e40| 64 20 3d 3d 20 22 33 33 | 32 22 29 09 2f 2f 20 52 |d == "33|2").// R|
|00001e50| 50 4c 5f 54 4f 50 49 43 | 0d 0a 09 09 7b 0d 0a 09 |PL_TOPIC|....{...|
|00001e60| 09 7d 0d 0a 09 09 65 6c | 73 65 20 69 66 28 43 6f |.}....el|se if(Co|
|00001e70| 6d 6d 61 6e 64 20 3d 3d | 20 22 33 34 31 22 29 20 |mmand ==| "341") |
|00001e80| 20 20 2f 2f 20 52 50 4c | 5f 49 4e 56 49 54 49 4e |  // RPL|_INVITIN|
|00001e90| 47 0d 0a 09 09 7b 0d 0a | 09 09 7d 0d 0a 09 09 65 |G....{..|..}....e|
|00001ea0| 6c 73 65 20 69 66 28 43 | 6f 6d 6d 61 6e 64 20 3d |lse if(C|ommand =|
|00001eb0| 3d 20 22 33 30 31 22 29 | 09 2f 2f 20 52 50 4c 5f |= "301")|.// RPL_|
|00001ec0| 41 57 41 59 0d 0a 09 09 | 7b 0d 0a 09 09 09 53 79 |AWAY....|{.....Sy|
|00001ed0| 73 74 65 6d 50 61 67 65 | 2e 49 73 41 77 61 79 28 |stemPage|.IsAway(|
|00001ee0| 43 68 6f 70 28 50 61 72 | 73 65 44 65 6c 69 6d 69 |Chop(Par|seDelimi|
|00001ef0| 74 65 64 28 4c 69 6e 65 | 2c 20 22 20 22 2c 20 34 |ted(Line|, " ", 4|
|00001f00| 29 29 2c 20 43 68 6f 70 | 4c 65 66 74 28 50 61 72 |)), Chop|Left(Par|
|00001f10| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|00001f20| 2c 20 22 3a 22 2c 20 33 | 2c 20 54 72 75 65 29 29 |, ":", 3|, True))|
|00001f30| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 65 6c 73 65 20 |);....}.|...else |
|00001f40| 69 66 28 43 6f 6d 6d 61 | 6e 64 20 3d 3d 20 22 4e |if(Comma|nd == "N|
|00001f50| 4f 54 49 43 45 22 29 0d | 0a 09 09 7b 0d 0a 09 09 |OTICE").|...{....|
|00001f60| 09 54 65 6d 70 20 3d 20 | 50 61 72 73 65 44 65 6c |.Temp = |ParseDel|
|00001f70| 69 6d 69 74 65 64 28 4c | 69 6e 65 2c 20 22 3a 20 |imited(L|ine, ": |
|00001f80| 22 2c 20 32 29 3b 0d 0a | 09 09 09 54 65 6d 70 32 |", 2);..|...Temp2|
|00001f90| 20 3d 20 50 61 72 73 65 | 44 65 6c 69 6d 69 74 65 | = Parse|Delimite|
|00001fa0| 64 28 4c 69 6e 65 2c 20 | 22 3a 21 20 22 2c 20 32 |d(Line, |":! ", 2|
|00001fb0| 29 3b 0d 0a 0d 0a 09 09 | 09 69 66 28 49 6e 53 74 |);......|.if(InSt|
|00001fc0| 72 28 54 65 6d 70 2c 20 | 22 21 22 29 20 21 3d 20 |r(Temp, |"!") != |
|00001fd0| 2d 31 20 26 26 20 49 6e | 53 74 72 28 54 65 6d 70 |-1 && In|Str(Temp|
|00001fe0| 32 2c 20 22 2e 22 29 20 | 3d 3d 20 2d 31 29 0d 0a |2, ".") |== -1)..|
|00001ff0| 09 09 09 7b 0d 0a 09 09 | 09 09 2f 2f 20 69 74 27 |...{....|..// it'|
|00002000| 73 20 61 20 4e 69 63 6b | 2e 0d 0a 09 09 09 09 54 |s a Nick|.......T|
|00002010| 65 6d 70 20 3d 20 43 68 | 6f 70 4c 65 66 74 28 50 |emp = Ch|opLeft(P|
|00002020| 61 72 73 65 44 65 6c 69 | 6d 69 74 65 64 28 4c 69 |arseDeli|mited(Li|
|00002030| 6e 65 2c 20 22 20 22 2c | 20 34 2c 20 54 72 75 65 |ne, " ",| 4, True|
|00002040| 29 29 3b 0d 0a 09 09 09 | 09 69 66 28 41 73 63 28 |));.....|.if(Asc(|
|00002050| 4c 65 66 74 28 54 65 6d | 70 2c 20 31 29 29 20 3d |Left(Tem|p, 1)) =|
|00002060| 3d 20 31 20 26 26 20 41 | 73 63 28 52 69 67 68 74 |= 1 && A|sc(Right|
|00002070| 28 54 65 6d 70 2c 20 31 | 29 29 20 3d 3d 20 31 29 |(Temp, 1|)) == 1)|
|00002080| 0d 0a 09 09 09 09 09 53 | 79 73 74 65 6d 50 61 67 |.......S|ystemPag|
|00002090| 65 2e 43 54 43 50 28 22 | 22 2c 20 54 65 6d 70 32 |e.CTCP("|", Temp2|
|000020a0| 2c 20 4d 69 64 28 54 65 | 6d 70 2c 20 31 2c 20 4c |, Mid(Te|mp, 1, L|
|000020b0| 65 6e 28 54 65 6d 70 29 | 20 2d 20 32 29 29 3b 0d |en(Temp)| - 2));.|
|000020c0| 0a 09 09 09 09 65 6c 73 | 65 0d 0a 09 09 09 09 09 |.....els|e.......|
|000020d0| 53 79 73 74 65 6d 50 61 | 67 65 2e 55 73 65 72 4e |SystemPa|ge.UserN|
|000020e0| 6f 74 69 63 65 28 54 65 | 6d 70 32 2c 20 54 65 6d |otice(Te|mp2, Tem|
|000020f0| 70 29 3b 0d 0a 09 09 09 | 7d 0d 0a 09 09 09 65 6c |p);.....|}.....el|
|00002100| 73 65 0d 0a 09 09 09 09 | 53 79 73 74 65 6d 50 61 |se......|SystemPa|
|00002110| 67 65 2e 53 79 73 74 65 | 6d 54 65 78 74 28 43 68 |ge.Syste|mText(Ch|
|00002120| 6f 70 4c 65 66 74 28 50 | 61 72 73 65 44 65 6c 69 |opLeft(P|arseDeli|
|00002130| 6d 69 74 65 64 28 4c 69 | 6e 65 2c 20 22 20 22 2c |mited(Li|ne, " ",|
|00002140| 20 34 2c 20 54 72 75 65 | 29 29 29 3b 0d 0a 09 09 | 4, True|)));....|
|00002150| 7d 0d 0a 09 09 65 6c 73 | 65 20 69 66 28 49 6e 74 |}....els|e if(Int|
|00002160| 28 43 6f 6d 6d 61 6e 64 | 29 21 3d 20 30 29 0d 0a |(Command|)!= 0)..|
|00002170| 09 09 7b 0d 0a 09 09 09 | 53 79 73 74 65 6d 50 61 |..{.....|SystemPa|
|00002180| 67 65 2e 53 79 73 74 65 | 6d 54 65 78 74 28 43 68 |ge.Syste|mText(Ch|
|00002190| 6f 70 4c 65 66 74 28 50 | 61 72 73 65 44 65 6c 69 |opLeft(P|arseDeli|
|000021a0| 6d 69 74 65 64 28 4c 69 | 6e 65 2c 20 22 20 22 2c |mited(Li|ne, " ",|
|000021b0| 20 34 2c 20 54 72 75 65 | 29 29 29 3b 0d 0a 09 09 | 4, True|)));....|
|000021c0| 7d 0d 0a 09 09 65 6c 73 | 65 20 69 66 28 43 6f 6d |}....els|e if(Com|
|000021d0| 6d 61 6e 64 20 3d 3d 20 | 22 4d 4f 44 45 22 29 0d |mand == |"MODE").|
|000021e0| 0a 09 09 7b 0d 0a 09 09 | 09 2f 2f 20 63 68 61 6e |...{....|.// chan|
|000021f0| 6e 65 6c 20 6d 6f 64 65 | 0d 0a 09 09 09 54 65 6d |nel mode|.....Tem|
|00002200| 70 20 3d 20 43 68 6f 70 | 28 50 61 72 73 65 44 65 |p = Chop|(ParseDe|
|00002210| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 20 |limited(|Line, " |
|00002220| 22 2c 20 34 29 29 3b 0d | 0a 09 09 09 2f 2f 20 63 |", 4));.|....// c|
|00002230| 68 61 6e 6e 65 6c 0d 0a | 09 09 09 54 65 6d 70 33 |hannel..|...Temp3|
|00002240| 20 3d 20 43 68 6f 70 28 | 50 61 72 73 65 44 65 6c | = Chop(|ParseDel|
|00002250| 69 6d 69 74 65 64 28 4c | 69 6e 65 2c 20 22 20 22 |imited(L|ine, " "|
|00002260| 2c 20 33 29 29 3b 0d 0a | 09 09 09 69 20 3d 20 35 |, 3));..|...i = 5|
|00002270| 3b 0d 0a 09 09 09 62 41 | 64 64 4d 6f 64 69 66 69 |;.....bA|ddModifi|
|00002280| 65 72 20 3d 20 54 72 75 | 65 3b 0d 0a 09 09 09 77 |er = Tru|e;.....w|
|00002290| 68 69 6c 65 28 54 65 6d | 70 20 21 3d 20 22 22 29 |hile(Tem|p != "")|
|000022a0| 0d 0a 09 09 09 7b 0d 0a | 09 09 09 09 54 65 6d 70 |.....{..|....Temp|
|000022b0| 32 20 3d 20 4c 65 66 74 | 28 54 65 6d 70 2c 20 31 |2 = Left|(Temp, 1|
|000022c0| 29 3b 0d 0a 09 09 09 09 | 69 66 28 54 65 6d 70 32 |);......|if(Temp2|
|000022d0| 20 3d 3d 20 22 2b 22 29 | 0d 0a 09 09 09 09 09 62 | == "+")|.......b|
|000022e0| 41 64 64 4d 6f 64 69 66 | 69 65 72 20 3d 20 54 72 |AddModif|ier = Tr|
|000022f0| 75 65 3b 0d 0a 09 09 09 | 09 69 66 28 54 65 6d 70 |ue;.....|.if(Temp|
|00002300| 32 20 3d 3d 20 22 2d 22 | 29 0d 0a 09 09 09 09 09 |2 == "-"|).......|
|00002310| 62 41 64 64 4d 6f 64 69 | 66 69 65 72 20 3d 20 46 |bAddModi|fier = F|
|00002320| 61 6c 73 65 3b 0d 0a 0d | 0a 09 09 09 09 69 66 28 |alse;...|.....if(|
|00002330| 54 65 6d 70 32 20 3d 3d | 20 22 6f 22 29 0d 0a 09 |Temp2 ==| "o")...|
|00002340| 09 09 09 7b 0d 0a 09 09 | 09 09 09 53 79 73 74 65 |...{....|...Syste|
|00002350| 6d 50 61 67 65 2e 43 68 | 61 6e 67 65 4f 70 28 54 |mPage.Ch|angeOp(T|
|00002360| 65 6d 70 33 2c 20 43 68 | 6f 70 28 50 61 72 73 65 |emp3, Ch|op(Parse|
|00002370| 44 65 6c 69 6d 69 74 65 | 64 28 4c 69 6e 65 2c 20 |Delimite|d(Line, |
|00002380| 22 20 22 2c 20 69 29 29 | 2c 20 62 41 64 64 4d 6f |" ", i))|, bAddMo|
|00002390| 64 69 66 69 65 72 29 3b | 0d 0a 09 09 09 09 09 69 |difier);|.......i|
|000023a0| 2b 2b 3b 0d 0a 09 09 09 | 09 7d 0d 0a 09 09 09 09 |++;.....|.}......|
|000023b0| 09 0d 0a 09 09 09 09 69 | 66 28 54 65 6d 70 32 20 |.......i|f(Temp2 |
|000023c0| 3d 3d 20 22 76 22 29 0d | 0a 09 09 09 09 7b 0d 0a |== "v").|.....{..|
|000023d0| 09 09 09 09 09 53 79 73 | 74 65 6d 50 61 67 65 2e |.....Sys|temPage.|
|000023e0| 43 68 61 6e 67 65 56 6f | 69 63 65 28 54 65 6d 70 |ChangeVo|ice(Temp|
|000023f0| 33 2c 20 43 68 6f 70 28 | 50 61 72 73 65 44 65 6c |3, Chop(|ParseDel|
|00002400| 69 6d 69 74 65 64 28 4c | 69 6e 65 2c 20 22 20 22 |imited(L|ine, " "|
|00002410| 2c 20 69 29 29 2c 20 62 | 41 64 64 4d 6f 64 69 66 |, i)), b|AddModif|
|00002420| 69 65 72 29 3b 0d 0a 09 | 09 09 09 09 69 2b 2b 3b |ier);...|....i++;|
|00002430| 0d 0a 09 09 09 09 7d 0d | 0a 0d 0a 09 09 09 09 54 |......}.|.......T|
|00002440| 65 6d 70 20 3d 20 4d 69 | 64 28 54 65 6d 70 2c 20 |emp = Mi|d(Temp, |
|00002450| 31 29 3b 0d 0a 09 09 09 | 7d 0d 0a 09 09 09 20 0d |1);.....|}..... .|
|00002460| 0a 09 09 09 53 79 73 74 | 65 6d 50 61 67 65 2e 43 |....Syst|emPage.C|
|00002470| 68 61 6e 67 65 4d 6f 64 | 65 28 54 65 6d 70 33 2c |hangeMod|e(Temp3,|
|00002480| 20 50 61 72 73 65 44 65 | 6c 69 6d 69 74 65 64 28 | ParseDe|limited(|
|00002490| 4c 69 6e 65 2c 20 22 3a | 21 22 2c 20 32 29 2c 20 |Line, ":|!", 2), |
|000024a0| 43 68 6f 70 4c 65 66 74 | 28 50 61 72 73 65 44 65 |ChopLeft|(ParseDe|
|000024b0| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 20 |limited(|Line, " |
|000024c0| 22 2c 20 34 2c 20 54 72 | 75 65 29 29 29 3b 0d 0a |", 4, Tr|ue)));..|
|000024d0| 0d 0a 09 09 7d 0d 0a 09 | 09 65 6c 73 65 20 69 66 |....}...|.else if|
|000024e0| 28 43 6f 6d 6d 61 6e 64 | 20 3d 3d 20 22 4b 49 43 |(Command| == "KIC|
|000024f0| 4b 22 29 0d 0a 09 09 7b | 0d 0a 09 09 09 2f 2f 20 |K")....{|.....// |
|00002500| 46 49 58 4d 45 3a 20 68 | 61 6e 64 6c 65 20 6d 75 |FIXME: h|andle mu|
|00002510| 6c 74 69 70 6c 65 20 6b | 69 63 6b 73 20 69 6e 20 |ltiple k|icks in |
|00002520| 61 20 73 69 6e 67 6c 65 | 20 6d 65 73 73 61 67 65 |a single| message|
|00002530| 0d 0a 09 09 09 53 79 73 | 74 65 6d 50 61 67 65 2e |.....Sys|temPage.|
|00002540| 4b 69 63 6b 55 73 65 72 | 28 43 68 6f 70 28 50 61 |KickUser|(Chop(Pa|
|00002550| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00002560| 65 2c 20 22 20 22 2c 20 | 33 29 29 2c 20 43 68 6f |e, " ", |3)), Cho|
|00002570| 70 28 50 61 72 73 65 44 | 65 6c 69 6d 69 74 65 64 |p(ParseD|elimited|
|00002580| 28 4c 69 6e 65 2c 20 22 | 20 22 2c 20 34 29 29 2c |(Line, "| ", 4)),|
|00002590| 20 50 61 72 73 65 44 65 | 6c 69 6d 69 74 65 64 28 | ParseDe|limited(|
|000025a0| 4c 69 6e 65 2c 20 22 3a | 21 22 2c 20 32 29 2c 20 |Line, ":|!", 2), |
|000025b0| 43 68 6f 70 4c 65 66 74 | 28 50 61 72 73 65 44 65 |ChopLeft|(ParseDe|
|000025c0| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 3a |limited(|Line, ":|
|000025d0| 22 2c 20 33 2c 20 54 72 | 75 65 29 29 29 3b 0d 0a |", 3, Tr|ue)));..|
|000025e0| 09 09 7d 0d 0a 09 09 65 | 6c 73 65 20 69 66 28 43 |..}....e|lse if(C|
|000025f0| 6f 6d 6d 61 6e 64 20 3d | 3d 20 22 49 4e 56 49 54 |ommand =|= "INVIT|
|00002600| 45 22 29 0d 0a 09 09 7b | 0d 0a 09 09 09 53 79 73 |E")....{|.....Sys|
|00002610| 74 65 6d 50 61 67 65 2e | 53 79 73 74 65 6d 54 65 |temPage.|SystemTe|
|00002620| 78 74 28 50 61 72 73 65 | 44 65 6c 69 6d 69 74 65 |xt(Parse|Delimite|
|00002630| 64 28 4c 69 6e 65 2c 20 | 22 3a 21 22 2c 20 32 29 |d(Line, |":!", 2)|
|00002640| 40 49 6e 76 69 74 65 53 | 74 72 69 6e 67 40 50 61 |@InviteS|tring@Pa|
|00002650| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00002660| 65 2c 20 22 3a 22 2c 20 | 33 29 29 3b 09 0d 0a 09 |e, ":", |3));....|
|00002670| 09 7d 0d 0a 09 09 65 6c | 73 65 20 69 66 28 43 6f |.}....el|se if(Co|
|00002680| 6d 6d 61 6e 64 20 3d 3d | 20 22 50 52 49 56 4d 53 |mmand ==| "PRIVMS|
|00002690| 47 22 29 0d 0a 09 09 7b | 0d 0a 09 09 09 54 65 6d |G")....{|.....Tem|
|000026a0| 70 20 3d 20 43 68 6f 70 | 28 50 61 72 73 65 44 65 |p = Chop|(ParseDe|
|000026b0| 6c 69 6d 69 74 65 64 28 | 4c 69 6e 65 2c 20 22 20 |limited(|Line, " |
|000026c0| 22 2c 20 33 29 29 3b 0d | 0a 09 09 09 54 65 6d 70 |", 3));.|....Temp|
|000026d0| 32 20 3d 20 43 68 6f 70 | 4c 65 66 74 28 50 61 72 |2 = Chop|Left(Par|
|000026e0| 73 65 44 65 6c 69 6d 69 | 74 65 64 28 4c 69 6e 65 |seDelimi|ted(Line|
|000026f0| 2c 20 22 20 22 2c 20 34 | 2c 20 54 72 75 65 29 29 |, " ", 4|, True))|
|00002700| 3b 0d 0a 0d 0a 09 09 09 | 69 66 28 4d 69 64 28 54 |;.......|if(Mid(T|
|00002710| 65 6d 70 32 2c 20 31 2c | 20 37 29 20 3d 3d 20 22 |emp2, 1,| 7) == "|
|00002720| 41 43 54 49 4f 4e 20 22 | 20 26 26 20 41 73 63 28 |ACTION "| && Asc(|
|00002730| 4c 65 66 74 28 54 65 6d | 70 32 2c 20 31 29 29 3d |Left(Tem|p2, 1))=|
|00002740| 3d 31 20 26 26 20 41 73 | 63 28 52 69 67 68 74 28 |=1 && As|c(Right(|
|00002750| 54 65 6d 70 32 2c 20 31 | 29 29 3d 3d 31 29 0d 0a |Temp2, 1|))==1)..|
|00002760| 09 09 09 7b 0d 0a 09 09 | 09 09 54 65 6d 70 32 20 |...{....|..Temp2 |
|00002770| 3d 20 4d 69 64 28 54 65 | 6d 70 32 2c 20 38 29 3b |= Mid(Te|mp2, 8);|
|00002780| 0d 0a 09 09 09 09 54 65 | 6d 70 32 20 3d 20 4c 65 |......Te|mp2 = Le|
|00002790| 66 74 28 54 65 6d 70 32 | 2c 20 4c 65 6e 28 54 65 |ft(Temp2|, Len(Te|
|000027a0| 6d 70 32 29 20 2d 20 31 | 29 3b 0d 0a 0d 0a 09 09 |mp2) - 1|);......|
|000027b0| 09 09 69 66 28 54 65 6d | 70 20 21 3d 20 22 22 20 |..if(Tem|p != "" |
|000027c0| 26 26 20 49 6e 53 74 72 | 28 22 26 23 40 22 2c 20 |&& InStr|("&#@", |
|000027d0| 4c 65 66 74 28 54 65 6d | 70 2c 20 31 29 29 20 21 |Left(Tem|p, 1)) !|
|000027e0| 3d 20 2d 31 29 0d 0a 09 | 09 09 09 09 53 79 73 74 |= -1)...|....Syst|
|000027f0| 65 6d 50 61 67 65 2e 43 | 68 61 6e 6e 65 6c 41 63 |emPage.C|hannelAc|
|00002800| 74 69 6f 6e 28 54 65 6d | 70 2c 20 50 61 72 73 65 |tion(Tem|p, Parse|
|00002810| 44 65 6c 69 6d 69 74 65 | 64 28 4c 69 6e 65 2c 20 |Delimite|d(Line, |
|00002820| 22 3a 21 22 2c 20 32 29 | 2c 20 54 65 6d 70 32 29 |":!", 2)|, Temp2)|
|00002830| 3b 0d 0a 09 09 09 09 65 | 6c 73 65 0d 0a 09 09 09 |;......e|lse.....|
|00002840| 09 09 53 79 73 74 65 6d | 50 61 67 65 2e 50 72 69 |..System|Page.Pri|
|00002850| 76 61 74 65 41 63 74 69 | 6f 6e 28 50 61 72 73 65 |vateActi|on(Parse|
|00002860| 44 65 6c 69 6d 69 74 65 | 64 28 4c 69 6e 65 2c 20 |Delimite|d(Line, |
|00002870| 22 3a 21 22 2c 20 32 29 | 2c 20 54 65 6d 70 32 29 |":!", 2)|, Temp2)|
|00002880| 3b 0d 0a 09 09 09 7d 0d | 0a 09 09 09 65 6c 73 65 |;.....}.|....else|
|00002890| 0d 0a 09 09 09 69 66 28 | 41 73 63 28 4c 65 66 74 |.....if(|Asc(Left|
|000028a0| 28 54 65 6d 70 32 2c 20 | 31 29 29 3d 3d 31 20 26 |(Temp2, |1))==1 &|
|000028b0| 26 20 41 73 63 28 52 69 | 67 68 74 28 54 65 6d 70 |& Asc(Ri|ght(Temp|
|000028c0| 32 2c 20 31 29 29 3d 3d | 31 29 0d 0a 09 09 09 7b |2, 1))==|1).....{|
|000028d0| 0d 0a 09 09 09 09 54 65 | 6d 70 32 20 3d 20 4d 69 |......Te|mp2 = Mi|
|000028e0| 64 28 54 65 6d 70 32 2c | 20 31 2c 20 4c 65 6e 28 |d(Temp2,| 1, Len(|
|000028f0| 54 65 6d 70 32 29 20 2d | 20 32 29 3b 0d 0a 09 09 |Temp2) -| 2);....|
|00002900| 09 09 0d 0a 09 09 09 09 | 73 77 69 74 63 68 28 54 |........|switch(T|
|00002910| 65 6d 70 32 29 0d 0a 09 | 09 09 09 7b 0d 0a 09 09 |emp2)...|...{....|
|00002920| 09 09 63 61 73 65 20 22 | 56 45 52 53 49 4f 4e 22 |..case "|VERSION"|
|00002930| 3a 0d 0a 09 09 09 09 09 | 53 65 6e 64 42 75 66 66 |:.......|SendBuff|
|00002940| 65 72 65 64 44 61 74 61 | 28 22 4e 4f 54 49 43 45 |eredData|("NOTICE|
|00002950| 20 22 24 50 61 72 73 65 | 44 65 6c 69 6d 69 74 65 | "$Parse|Delimite|
|00002960| 64 28 4c 69 6e 65 2c 20 | 22 3a 21 22 2c 20 32 29 |d(Line, |":!", 2)|
|00002970| 24 22 20 3a 22 24 43 68 | 72 28 31 29 24 22 56 45 |$" :"$Ch|r(1)$"VE|
|00002980| 52 53 49 4f 4e 20 22 24 | 56 65 72 73 69 6f 6e 53 |RSION "$|VersionS|
|00002990| 74 72 69 6e 67 24 4c 65 | 76 65 6c 2e 45 6e 67 69 |tring$Le|vel.Engi|
|000029a0| 6e 65 56 65 72 73 69 6f | 6e 24 43 68 72 28 31 29 |neVersio|n$Chr(1)|
|000029b0| 24 43 52 4c 46 29 3b 0d | 0a 09 09 09 09 09 53 79 |$CRLF);.|......Sy|
|000029c0| 73 74 65 6d 50 61 67 65 | 2e 43 54 43 50 28 54 65 |stemPage|.CTCP(Te|
|000029d0| 6d 70 2c 20 50 61 72 73 | 65 44 65 6c 69 6d 69 74 |mp, Pars|eDelimit|
|000029e0| 65 64 28 4c 69 6e 65 2c | 20 22 3a 21 22 2c 20 32 |ed(Line,| ":!", 2|
|000029f0| 29 2c 20 54 65 6d 70 32 | 29 3b 0d 0a 09 09 09 09 |), Temp2|);......|
|00002a00| 09 62 72 65 61 6b 3b 0d | 0a 09 09 09 09 64 65 66 |.break;.|.....def|
|00002a10| 61 75 6c 74 3a 0d 0a 09 | 09 09 09 09 53 79 73 74 |ault:...|....Syst|
|00002a20| 65 6d 50 61 67 65 2e 43 | 54 43 50 28 54 65 6d 70 |emPage.C|TCP(Temp|
|00002a30| 2c 20 50 61 72 73 65 44 | 65 6c 69 6d 69 74 65 64 |, ParseD|elimited|
|00002a40| 28 4c 69 6e 65 2c 20 22 | 3a 21 22 2c 20 32 29 2c |(Line, "|:!", 2),|
|00002a50| 20 54 65 6d 70 32 29 3b | 0d 0a 09 09 09 09 09 62 | Temp2);|.......b|
|00002a60| 72 65 61 6b 3b 0d 0a 09 | 09 09 09 7d 0d 0a 09 09 |reak;...|...}....|
|00002a70| 09 7d 0d 0a 09 09 09 65 | 6c 73 65 0d 0a 09 09 09 |.}.....e|lse.....|
|00002a80| 7b 0d 0a 09 09 09 09 69 | 66 28 54 65 6d 70 20 21 |{......i|f(Temp !|
|00002a90| 3d 20 22 22 20 26 26 20 | 49 6e 53 74 72 28 22 26 |= "" && |InStr("&|
|00002aa0| 23 40 22 2c 20 4c 65 66 | 74 28 54 65 6d 70 2c 20 |#@", Lef|t(Temp, |
|00002ab0| 31 29 29 20 21 3d 20 2d | 31 29 0d 0a 09 09 09 09 |1)) != -|1)......|
|00002ac0| 09 53 79 73 74 65 6d 50 | 61 67 65 2e 43 68 61 6e |.SystemP|age.Chan|
|00002ad0| 6e 65 6c 54 65 78 74 28 | 54 65 6d 70 2c 20 50 61 |nelText(|Temp, Pa|
|00002ae0| 72 73 65 44 65 6c 69 6d | 69 74 65 64 28 4c 69 6e |rseDelim|ited(Lin|
|00002af0| 65 2c 20 22 3a 21 22 2c | 20 32 29 2c 20 54 65 6d |e, ":!",| 2), Tem|
|00002b00| 70 32 29 3b 0d 0a 09 09 | 09 09 65 6c 73 65 0d 0a |p2);....|..else..|
|00002b10| 09 09 09 09 09 53 79 73 | 74 65 6d 50 61 67 65 2e |.....Sys|temPage.|
|00002b20| 50 72 69 76 61 74 65 54 | 65 78 74 28 50 61 72 73 |PrivateT|ext(Pars|
|00002b30| 65 44 65 6c 69 6d 69 74 | 65 64 28 4c 69 6e 65 2c |eDelimit|ed(Line,|
|00002b40| 20 22 3a 21 22 2c 20 32 | 29 2c 20 54 65 6d 70 32 | ":!", 2|), Temp2|
|00002b50| 29 3b 0d 0a 09 09 09 7d | 0d 0a 09 09 7d 0d 0a 09 |);.....}|....}...|
|00002b60| 7d 0d 0a 42 65 67 69 6e | 3a 0d 0a 09 4a 6f 69 6e |}..Begin|:...Join|
|00002b70| 43 68 61 6e 6e 65 6c 28 | 44 65 66 61 75 6c 74 43 |Channel(|DefaultC|
|00002b80| 68 61 6e 6e 65 6c 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |hannel);|..}....f|
|00002b90| 75 6e 63 74 69 6f 6e 20 | 4a 6f 69 6e 43 68 61 6e |unction |JoinChan|
|00002ba0| 6e 65 6c 28 73 74 72 69 | 6e 67 20 43 68 61 6e 6e |nel(stri|ng Chann|
|00002bb0| 65 6c 29 0d 0a 7b 0d 0a | 09 69 66 28 4c 65 66 74 |el)..{..|.if(Left|
|00002bc0| 28 43 68 61 6e 6e 65 6c | 2c 20 31 29 20 3d 3d 20 |(Channel|, 1) == |
|00002bd0| 22 23 22 29 0d 0a 09 09 | 53 65 6e 64 42 75 66 66 |"#")....|SendBuff|
|00002be0| 65 72 65 64 44 61 74 61 | 28 22 4a 4f 49 4e 20 22 |eredData|("JOIN "|
|00002bf0| 24 43 68 61 6e 6e 65 6c | 24 43 52 4c 46 29 3b 0d |$Channel|$CRLF);.|
|00002c00| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 50 |.}....fu|nction P|
|00002c10| 61 72 74 43 68 61 6e 6e | 65 6c 28 73 74 72 69 6e |artChann|el(strin|
|00002c20| 67 20 43 68 61 6e 6e 65 | 6c 29 0d 0a 7b 0d 0a 09 |g Channe|l)..{...|
|00002c30| 69 66 28 4c 65 66 74 28 | 43 68 61 6e 6e 65 6c 2c |if(Left(|Channel,|
|00002c40| 20 31 29 20 3d 3d 20 22 | 23 22 29 0d 0a 09 09 53 | 1) == "|#")....S|
|00002c50| 65 6e 64 42 75 66 66 65 | 72 65 64 44 61 74 61 28 |endBuffe|redData(|
|00002c60| 22 50 41 52 54 20 22 24 | 43 68 61 6e 6e 65 6c 24 |"PART "$|Channel$|
|00002c70| 43 52 4c 46 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |CRLF);..|}....fun|
|00002c80| 63 74 69 6f 6e 20 53 65 | 74 4e 69 63 6b 28 73 74 |ction Se|tNick(st|
|00002c90| 72 69 6e 67 20 4e 65 77 | 4e 69 63 6b 29 0d 0a 7b |ring New|Nick)..{|
|00002ca0| 0d 0a 09 53 65 6e 64 42 | 75 66 66 65 72 65 64 44 |...SendB|ufferedD|
|00002cb0| 61 74 61 28 22 4e 49 43 | 4b 20 22 24 4e 65 77 4e |ata("NIC|K "$NewN|
|00002cc0| 69 63 6b 24 43 52 4c 46 | 29 3b 0d 0a 7d 0d 0a 0d |ick$CRLF|);..}...|
|00002cd0| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 41 77 61 |.functio|n SetAwa|
|00002ce0| 79 28 73 74 72 69 6e 67 | 20 41 77 61 79 54 65 78 |y(string| AwayTex|
|00002cf0| 74 29 0d 0a 7b 0d 0a 09 | 53 65 6e 64 42 75 66 66 |t)..{...|SendBuff|
|00002d00| 65 72 65 64 44 61 74 61 | 28 22 41 57 41 59 20 3a |eredData|("AWAY :|
|00002d10| 22 24 41 77 61 79 54 65 | 78 74 24 43 52 4c 46 29 |"$AwayTe|xt$CRLF)|
|00002d20| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00002d30| 20 44 65 73 74 72 6f 79 | 4c 69 6e 6b 28 29 0d 0a | Destroy|Link()..|
|00002d40| 7b 0d 0a 09 53 79 73 74 | 65 6d 50 61 67 65 20 3d |{...Syst|emPage =|
|00002d50| 20 4e 6f 6e 65 3b 0d 0a | 09 69 66 28 49 73 43 6f | None;..|.if(IsCo|
|00002d60| 6e 6e 65 63 74 65 64 28 | 29 29 0d 0a 09 7b 0d 0a |nnected(|))...{..|
|00002d70| 09 09 53 65 6e 64 54 65 | 78 74 28 22 51 55 49 54 |..SendTe|xt("QUIT|
|00002d80| 20 3a 22 24 44 69 73 63 | 6f 6e 6e 65 63 74 52 65 | :"$Disc|onnectRe|
|00002d90| 61 73 6f 6e 24 43 52 4c | 46 29 3b 0d 0a 09 09 43 |ason$CRL|F);....C|
|00002da0| 6c 6f 73 65 28 29 3b 0d | 0a 09 7d 0d 0a 09 65 6c |lose();.|..}...el|
|00002db0| 73 65 0d 0a 09 09 44 65 | 73 74 72 6f 79 28 29 3b |se....De|stroy();|
|00002dc0| 0d 0a 7d 0d 0a 0d 0a 00 |                         |..}.....|        |
+--------+-------------------------+-------------------------+--------+--------+